#include <xp/bas/string.h>
#include <xp/bas/stdio.h>
#include <xp/bas/ctype.h>
#include <xp/bas/locale.h>

int xp_main (int argc, xp_char_t* argv[])
{
	xp_size_t n;

	xp_setlocale ();

	if (argc != 2) {
		xp_printf (XP_TEXT("usage: %s string\n"), argv[0]);
		return -1;
	}

	xp_printf (XP_TEXT("xp_stristype (%s, xp_isalpha) => %d\n"), 
		argv[1], xp_stristype(argv[1],xp_isalpha));
	xp_printf (XP_TEXT("xp_stristype (%s, xp_isalnum) => %d\n"), 
		argv[1], xp_stristype(argv[1],xp_isalnum));
	xp_printf (XP_TEXT("xp_stristype (%s, xp_isdigit) => %d\n"), 
		argv[1], xp_stristype(argv[1],xp_isdigit));
	return 0;
}

